home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / DRAWGRAF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-16  |  640 b   |  24 lines
  1. 10  SCREEN 0,1
  2. 20  COLOR 15,9,1
  3. 30  KEY OFF
  4. 40  CLS
  5. 50  PRINT STRING$(40,176)
  6. 60  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  7. 70  PRINT STRING$(1,176)+"       EASY - GRAF   DRAW  GRAPHICS   "+STRING$(1,176)
  8. 80  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  9. 90  PRINT STRING$(40,176)
  10. 100  PRINT " "
  11. 110  PRINT "          A  -  HIGH RESOLUTION         "+"          B  -  MEDIUM RESOLUTION"
  12. 150  PRINT "        Esc  -  EXIT"
  13. 190  PRINT " "
  14. 200  PRINT " "
  15. 210  PRINT "       SELECT FUNCTION BY LETTER"
  16. 220  K$=INKEY$:IF K$="" THEN 220
  17. 230  IF K$="A" THEN CHAIN "GRAPHIT"
  18. 240  IF K$="a" THEN CHAIN "GRAPHIT"
  19. 250  IF K$="B" THEN CHAIN "GRAPHII"
  20. 260  IF K$="b" THEN CHAIN "GRAPHII"
  21. 370  IF K$=CHR$(27) THEN GOTO 500
  22. 380  GOTO 220
  23. 500  CHAIN "EASYGRAF"
  24.